home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 May
/
Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64
/
Outcast Order
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
315b
|
11 lines
0 rem << cd41-4 >>
1 rem ==================================
2 rem commodares problem #37-2 :
3 rem outcast order
4 rem solution by
5 rem david hoffner
6 rem ==================================
10 input"people";n:input"outcast #";m:dim a(n)
20 y=y+1+n*(y=n):on a(y) goto 20:x=x+1:if x=m then print y:a(y)=1:x=0
30 goto 20